(note that this needs editing, extra carriage returns need to be expunged - John :-#)#)
PROGRAM 0   334 BYTES

   REG1 = C000
   REG2 = 1
   REG3 = 0
   DPY-BAD RAM IDENTIFIER
   STOP
0: LABEL 0
   IF REG1 > FFFF GO
TO 6
   WRITE @ REG1 = AA
   READ @ REG1
   DPY-ADDRESS = $F 
   DATA = $E
   IF REGE = AA GOTO 3
1: LABEL 1
   IF REGE AND REG2 > 0 GOTO 5
   INC REG3
   SHR REGE
   IF REGE AND REG2 > REG2 GOTO 5
   IF REG2 > REGE AND REG2 GOTO 5
   INC REG3
   IF REG3 > 80 GOTO 0
   SHR REGE
   GOTO 1
3: LABEL 3
   WRITE @ REG1 = 55
   READ @ REG1
   DPY-ADDRESS = $F 
   DATA = $E
   INC REG1
   IF REGE = 55 GOTO 0
4: LABEL 4
   IF REGE AND REG2 > REG2 GOTO 5
   IF REG2 > REGE AND REG2 GOTO 5
   INC REG3
   SHR REGE
   IF REGE AND REG2 > 0 GOTO 5
   INC REG3
   IF REG3 > 80 GOTO 3
   SHR REGE
   GOTO 4
5: LABEL 5
   DPY-#
   DPY-CHANGE RAM CONNECTED TO D$3
   STOP
6: LABEL 6
   DPY-RERUN RAM SHORT OR RAM LONG

PROGRAM 1   1144 BYT
ES

   SYNC FREE-RUN
   REG1 = 0
   REG2 = 1000000
   REG3 = 4000000
   DPY-PIA <U22> CHE
CK
   STOP
   DPY-ATTATCH FIXTU
RE TO -A1J1-
   STOP
   DPY-JUMP TO INPUT
 TEST?A
   IF REGA = 1 GOTO 
7
   DPY-JUMP TO PB OU
TPUT TEST?A
   IF REGA = 1 GOTO 
3
   WRITE @ 100C1 = 0
   DPY-CHECK OUTPUT 
AT PA0-PA7
   STOP
   WRITE @ 100C0 = F
F
   WRITE @ 100C1 = 4
   WRITE @ 100C0 = A
A
0: LABEL 0
   IF REG1 > 7 GOTO 
1
   DPY-PLACE THE PRO
BE ON PA$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG3 > REG0 GO
TO A
   DPY-PLACE THE PRO
BE ON PA$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG0 > REG2 GO
TO A
   GOTO 0
1: LABEL 1
   REG1 = 0
   WRITE @ 100C0 = 5
5
2: LABEL 2
   IF REG1 > 7 GOTO 
3
   DPY-PLACE THE PRO
BE ON PA$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG0 > REG2 GO
TO A
   DPY-PLACE THE PRO
BE ON PA$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG3 > REG0 GO
TO A
   GOTO 2
3: LABEL 3
   REG1 = 0
   DPY-CHECK OUTPUT 
AT PB0-PB7
   STOP
   WRITE @ 100C3 = 0
   WRITE @ 100C2 = F
F
   WRITE @ 100C3 = 4
   WRITE @ 100C2 = A
A
4: LABEL 4
   IF REG1 > 7 GOTO 
5
   DPY-PLACE THE PRO
BE ON PB$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG3 > REG0 GO
TO A
   DPY-PLACE THE PRO
BE ON PB$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG0 > REG2 GO
TO A
   GOTO 4
5: LABEL 5
   REG1 = 0
   WRITE @ 100C2 = 5
5
6: LABEL 6
   IF REG1 > 7 GOTO 
7
   DPY-PLACE THE PRO
BE ON PB$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG0 > REG2 GO
TO A
   DPY-PLACE THE PRO
BE ON PB$1
   STOP
   READ PROBE
   READ PROBE
   REG0 = REG0 AND 7
000000
   INC REG1
   IF REG3 > REG0 GO
TO A
   GOTO 6
7: LABEL 7
   SYNC ADDRESS
   REG1 = 0
   REG4 = 1
   WRITE @ 100C1 = 0
   WRITE @ 100C3 = 0
   WRITE @ 100C0 = 0
   WRITE @ 100C2 = 0
   WRITE @ 100C1 = 4
   WRITE @ 100C3 = 4
   DPY-CHECK INPUT A
T PA0-PA7
   STOP
   DPY-SET PROBE TO 
<PULSE-LOW>
   STOP
8: LABEL 8
   IF REG1 > 7 GOTO 
B
   DPY-PLACE THE PRO
BE ON PA$1
   STOP
   READ @ 100C0
   INC REG1
   CPL REGE
   REGE = REGE AND F
F
   IF REGE = REG4 GO
TO 9
   GOTO E
9: LABEL 9
   SHL REG4
   GOTO 8
B: LABEL B
   DPY-SET PROBE TO 
<PULSE-HIGH>
   STOP
   REG1 = 0
   REG4 = 1
C: LABEL C
   IF REG1 > 7 GOTO 
F
   DPY-PLACE THE PRO
BE ON PB$1
   STOP
   READ @ 100C2
   INC REG1
   IF REGE = REG4 GO
TO D
   GOTO E
D: LABEL D
   SHL REG4
   GOTO C
A: LABEL A
   DPY-WRITE ERROR A
T U22
   STOP
   GOTO F
E: LABEL E
   DPY-READ ERROR AT
 U22
   STOP
   GOTO F
F: LABEL F
   DPY-END

PROGRAM 2   257 BYTE
S

   DPY-FREE-RUN PROB
E CHECK
0: LABEL 0
   WRITE @ 100C3 = 3
0
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = F
F
   WRITE @ 100C1 = 4
   WRITE @ 100C0 = 8
0
   WRITE @ 100C3 = 3
8
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = 0
   WRITE @ 100C1 = 4
   READ @ 100C0
   REGE = REGE AND E
0
   IF REGE = 20 GOTO
 1
   IF REGE = 40 GOTO
 2
   IF REGE = 80 GOTO
 3
   GOTO 0
1: LABEL 1
   DPY-TRISTATE INPU
T <LIGHTS OFF>
   GOTO 0
2: LABEL 2
   DPY-NEGATIVE INPU
T <GREEN ON>
   GOTO 0
3: LABEL 3
   DPY-POSITIVE INPU
T <RED ON>
   GOTO 0

PROGRAM 3   86 BYTES

   DPY-SYNC PROBE CH
ECK
   SYNC FREE-RUN
   WRITE @ 100C3 = 3
0
0: LABEL 0
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = F
F
   WRITE @ 100C1 = 4
   WRITE @ 100C0 = 0
   WRITE @ 100C3 = 3
8
   GOTO 0

PROGRAM 4   437 BYTE
S

   DPY-PULSE OUTPUT 
CHECK
   STOP
0: LABEL 0
   REG1 = 0
   WRITE @ 100C3 = 3
0
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = F
F
   WRITE @ 100C1 = 4
   WRITE @ 100C0 = 1
0
   DPY-#
   WRITE @ 100C0 = A
0
   WRITE @ 100C3 = 3
8
   GOTO 3
1: LABEL 1
   WRITE @ 100C3 = 3
0
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = F
F
   WRITE @ 100C1 = 4
   WRITE @ 100C0 = C
0
   WRITE @ 100C3 = 3
8
   GOTO 3
2: LABEL 2
   WRITE @ 100C3 = 3
0
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = F
F
   WRITE @ 100C1 = 4
   WRITE @ 100C0 = E
0
   WRITE @ 100C3 = 3
8
   GOTO 3
3: LABEL 3
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = 0
   WRITE @ 100C1 = 4
   READ @ 100C0
   INC REG1
   REGE = REGE AND E
0
   IF REGE = 60 GOTO
 4
   IF REGE = A0 GOTO
 5
   IF REGE = E0 GOTO
 6
   GOTO 0
4: LABEL 4
   DPY-PULSE LOW <GR
EEN>
   IF REG1 = 1 GOTO 
1
   IF REG1 = 2 GOTO 
2
   GOTO 0
5: LABEL 5
   DPY-PULSE HIGH <R
ED>
   IF REG1 = 1 GOTO 
1
   IF REG1 = 2 GOTO 
2
   GOTO 0
6: LABEL 6
   DPY-PULSE HIGH AN
D LOW <BOTH>
   IF REG1 = 1 GOTO 
1
   IF REG1 = 2 GOTO 
2
   GOTO 0

PROGRAM 5   111 BYTE
S

   DPY-PROBE CIRCUIT
 RESET
   STOP
   WRITE @ 100C1 = 0
   WRITE @ 100C0 = F
F
   WRITE @ 100C1 = 4
   WRITE @ 100C0 = 8
0
   WRITE @ 100C3 = 3
8
   WRITE @ 100C3 = 3
0
   READ @ 10020
   DPY-PROBE RESET C
OMPLETE

PROGRAM 6   240 BYTE
S

   REG1 = 80
   DPY-PROBE COUNT C
IRCUIT CHECK
   STOP
   DPY-CONNECT TEST 
PROBE TO U59-1
   STOP
   DPY-SET PROBE TO 
PULSE HIGH
   STOP
   READ @ 10020
0: LABEL 0
   READ @ 10000
   DPY-DATA READ = $
E
   INC REG1
   IF REG1 = FF GOTO
 1
   IF REGE = REG1 GO
TO 0
   DPY-DATA = $E SHO
ULD BE $1
   STOP
   DPY-CHECK U59 AND
 U60 
   STOP
   DPY-USE TEST PROB
E
   STOP
1: LABEL 1
   DPY-END OF PROBE 
COUNTER CHECK

PROGRAM 7   152 BYTE
S

   REG2 = 0
   DPY-DISPLAY TEST
   STOP
0: LABEL 0
   REG1 = 0
   WRITE @ 10080 = B
A
   INC REG2
   IF REG2 = 20 GOTO
 2
1: LABEL 1
   WRITE @ REGF = 20
   INC REG1
   IF REG1 = 20 GOTO
 0
   GOTO 1
2: LABEL 2
   REG2 = 0
3: LABEL 3
   WRITE @ 10080 = 2
0
   INC REG1
   IF REG1 = 1E GOTO
 4
   GOTO 3
4: LABEL 4
   WRITE @ 10080 = B
A
   REG1 = 0
   INC REG2
   IF REG2 = 1F GOTO
 5
   GOTO 3
5: LABEL 5
   REG2 = 0
   GOTO 0

PROGRAM 8   884 BYTE
S

   DPY-RS-232 TEST
   STOP
   DPY-SET PARITY ON
   STOP
   DPY-SET STOP BITS
 TO 1
   STOP
   DPY-SET 7 OR 8 BI
T TO 8 BIT
   STOP
   DPY-SET EVEN OR O
DD TO ODD
   STOP
   DPY-SET BAUD RATE
 TO 9600
   STOP
   WRITE @ 100E3 = 0
   READ @ 100E1
   WRITE @ 100E3 = 0
   READ @ 100E1
   REG1 = 18
   REG2 = 7
   REG3 = 55
0: LABEL 0
   READ @ 100E2
   IF REG2 AND REGE 
> 0 GOTO 6
   IF REG1 AND REGE 
= 10 GOTO 1
   IF REG1 AND REGE 
= 0 GOTO 7
   IF REG1 AND REGE 
= 18 GOTO 2
   IF REG1 AND REGE 
= 8 GOTO 8
1: LABEL 1
   WRITE @ 100E3 = R
EG3
   READ @ 100E2
   IF REG1 AND REGE 
= 10 GOTO 5
   GOTO 0
2: LABEL 2
   READ @ 100E1
   DPY-DATA RECEIVED
 = $E
   IF REGE AND REG3 
= 55 GOTO 3
   IF REGE AND REG3 
= AA GOTO 4
   DPY-DATA RECEIVED
 BAD
   STOP
   GOTO 5
3: LABEL 3
   REG3 = AA
   READ @ 100E2
   IF REG1 AND REGE 
= 18 GOTO 5
   GOTO 0
4: LABEL 4
   REG3 = 55
   READ @ 100E2
   IF REG1 AND REGE 
= 18 GOTO 5
   GOTO 0
5: LABEL 5
   REG4 = 7000000
   SYNC ADDRESS
   DPY-CONNECT PROBE
 TO U1-23
   STOP
   READ PROBE
   READ PROBE
   WRITE @ 100E3 = 0
   READ PROBE
   IF REG4 AND REG0 
> 4000000 GOTO 9
   IF 4000000 > REG4
 AND REG0 GOTO 9
   READ PROBE
   READ @ 100E1
   READ PROBE
   IF REG4 AND REG0 
> 1000000 GOTO 9
   DPY-CONNECT PROBE
 TO U1-4
   STOP
   READ PROBE
   READ PROBE
   WRITE @ 100E3 = 0
   READ PROBE
   IF REG4 AND REG0 
> 1000000 GOTO 9
   READ PROBE
   READ @ 100E1
   READ PROBE
   IF REG4 AND REG0 
> 4000000 GOTO 9
   IF 4000000 > REG4
 AND REG0 GOTO 9
   DPY-CONNECT PROBE
 TO U1-16
   STOP
   READ PROBE
   READ PROBE
   WRITE @ 100E3 = 0
   READ PROBE
   IF REG4 AND REG0 
> 1000000 GOTO 9
   READ PROBE
   READ @ 100E2
   READ PROBE
   IF REG4 AND REG0 
> 4000000 GOTO 9
   IF 4000000 > REG4
 AND REG0 GOTO 9
   GOTO A
6: LABEL 6
   DPY-UART ERROR-RE
PLACE
   GOTO B
7: LABEL 7
   DPY-TBR FULL - NO
 DATA REC.
   STOP
   DPY-REPLACE UART
   GOTO B
8: LABEL 8
   DPY-TBR FULL - DA
TA REC.
   STOP
   DPY-REPLACE UART
   GOTO B
9: LABEL 9
   DPY-REPLACE U6
   GOTO B
A: LABEL A
   DPY-TRACE SERIAL 
DATA ON SCOPE
B: LABEL B

PROGRAM 9   301 BYTE
S

   SYNC ADDRESS
   DPY-PROBE COUNTER
 TEST
   STOP
   DPY-CONNECT UUT P
ROBE TO U53-1
   STOP
   REG3 = 80
   REG1 = 0
   READ @ 10020
   READ @ 10000
   REG2 = REGE AND R
EG3
   IF REG2 = 00 GOTO
 2
   GOTO 1
0: LABEL 0
   INC REG1
   READ @ 10040
1: LABEL 1
   READ @ 10000
   REG2 = REGE AND 7
F
   DPY-NO OF PULSE $
1,REG $2
   RAMP @ FFFF
   IF REG1 > 7E GOTO
 3
   IF REG1 = REG2 GO
TO 0
   DPY-COUNTER CHECK
S OUT
   DPY-COUNTER ERR A
T $2 COUNT
   GOTO 4
2: LABEL 2
   DPY-PROBE FUSE BL
OWN
   GOTO 4
3: LABEL 3
   DPY-COUNTER ERR A
T $2 COUNT
   DPY-COUNTER CHECK
S OUT
4: LABEL 4

PROGRAM 99   71 BYTE
S

   REG1 = 0
   REG2 = 0
0: LABEL 0
   REG2 = 0
   WRITE @ 10080 = R
EG1
   DPY-$1
   INC REG1
   IF REG1 > FF GOTO
 5
   GOTO 1
1: LABEL 1
   INC REG2
   IF REG2 = 40 GOTO
 0
   GOTO 1
5: LABEL 5
   DPY-$1
